(FILECREATED "11-SEP-74 02:58:44" FIX3.;1 3093   

     changes to:  PAD:2)


  (LISPXPRINT (QUOTE FIX3COMS)
	      T)
  (RPAQQ FIX3COMS ((FNS TEST:18 PAD:2)))
(DEFINEQ

(TEST:18
  (LAMBDA (ARG1 DUMMY:ARGUMENT:1 FN:VALUE FINAL:CO:REQ)
    (PROG1 (AND (SETQ BEING:STACK (CONS TEST:18 BEING:STACK))
		(PUT TEST:18 SPEC:WHY BECAUSE)
		(NOT (MEMBER NIL (MAPCAR (APPEND CURRENT:DEMONS USER:INTERRUPT:DEMONS)
					 (QUOTE APPLY*))))
		(SETQ FN:VALUE (PROGN (COMMENT IN ALL CALLS TO DATE, ARG1 IS INSTANTIATED AS POSSIBLE:NAME:OF:CLASS)
				      (SETQ POSSIBLE:NAME:OF:CLASS:OBJECTS:20 (GETP POSSIBLE:NAME:OF:CLASS 
										    CLASS:OBJECTS:33))
				      (SETQ POSSIBLE:NAME:OF:CLASS:CLASSNAME:21 (GETP POSSIBLE:NAME:OF:CLASS 
										      CLASS:CLASSNAME:34))
				      (SETQ YES:RELNS:28 (GETP POSSIBLE:NAME:OF:CLASS CLASS:YES:RELNS:35))
				      (SETQ NO:RELNS:29 (GETP POSSIBLE:NAME:OF:CLASS CLASS:NO:RELNS:36))
				      (SETQ MAYBE:RELNS:30 (GETP POSSIBLE:NAME:OF:CLASS CLASS:MAYBE:RELNS:37))
				      (COMMENT YES:RELNS:28 HAD TO BE BOUND HERE)
				      (COMMENT NO:RELNS:29 HAD TO BE BOUND HERE)
				      (COMMENT MAYBE:RELNS:30 HAD TO BE BOUND HERE)
				      (COMPARE:19 ARG1 ELEMENT:4)))
		FN:VALUE)
	   (SETQ BEING:STACK (CDR BEING:STACK)))))

(PAD:2
  (LAMBDA (DUMMY:ARGUMENT:3 DUMMY:ARGUMENT:2 DUMMY:ARGUMENT:1 PRESULT FN:VALUE FINAL:CO:REQ)
    (PROG1 (AND (SETQ BEING:STACK (CONS PAD:2 BEING:STACK))
		(PUSH:DEMONS (TUPLE FRINGE:OF:CONCIOUSNESS:DEMON))
		(PUT PAD:2 SPEC:WHY BECAUSE)
		(NOT (MEMBER NIL (MAPCAR (APPEND CURRENT:DEMONS USER:INTERRUPT:DEMONS)
					 (QUOTE APPLY*))))
		(SETQ FN:VALUE (PROG NIL
				 LABEL:1
				     (TAKE:HOLD:OF:3 ELEMENT:4)
				     (COND
				       ((HAS:NAME:5 ELEMENT:4 (COMMENT PARTITION:BY:TAKE:ELE:AND:CLASS))
					 (PROGN (TAKE:HOLD:OF:6 NAME:OF:CLASS)
						(MODIFY:STRUCTURE:7 NAME:OF:CLASS)))
				       (T (PROGN (GET:HOLD:OF:8 NAME:OF:CLASS)
						 (MODIFY:STRUCTURE:9 NAME:OF:CLASS))))
				     (COND
				       ((IS:OF:TYPE:61 ARG1 (COMMENT BREAKAWAY))
					 (COMMENT FINALIZATION OF LOOP STARTING AT LABEL:1 MAY GO HERE))
				       (T (AND (FOREACH NAME IN SET:OF:POSSIBLE:NAMES:OF:CLASS
						  DO (PROGN (PUPRINT NAME)
							    (COND
							      ((GETP NAME CLASS:OBJECTS:33)
								(PUPRIN1 "OBJECTS ")
								(PUPRINT (GETP NAME CLASS:OBJECTS:33))))
							    (COND
							      ((GETP NAME CLASS:YES:RELNS:35)
								(PUPRIN1 "MUST HAVE ")
								(PUPRINT (GETP NAME CLASS:YES:RELNS:35))))
							    (COND
							      ((GETP NAME CLASS:NO:RELNS:36)
								(PUPRIN1 "MUSNT HAVE ")
								(PUPRINT (GETP NAME CLASS:NO:RELNS:36))))
							    (COND
							      ((GETP NAME CLASS:MAYBE:RELNS:37)
								(PUPRIN1 "MAY HAVE ")
								(PUPRINT (GETP NAME CLASS:MAYBE:RELNS:37))))
							    (TERPRI)
							    T))
					       (GO LABEL:1))))
				     (COMMENT INFINITE LOOP IN THIS PROG)
				     (COMMENT COMMENT END OF THIS CYCLE)))
		FN:VALUE)
	   (SETQ BEING:STACK (CDR BEING:STACK))
	   (POP:DEMONS))))
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (168 3069 (TEST:18 180 . 1288) (PAD:2 1292 . 3066)))))
STOP